home *** CD-ROM | disk | FTP | other *** search
/ Enter 2004 January / enter-2004-01.iso / files / maxima-5.9.0.exe / {app} / share / maxima / 5.9.0 / tests / rtestflatten.mac < prev    next >
Encoding:
Text File  |  2003-02-09  |  961 b   |  100 lines
  1. (load("flatten.lisp"),0);
  2. 0$
  3.  
  4. flatten(3);
  5. 3$
  6.  
  7. flatten(-3);
  8. -3$
  9.  
  10. flatten(2/3);
  11. 2/3$
  12.  
  13. flatten(-2/3);
  14. -2/3$
  15.  
  16. flatten(1.4d2);
  17. 1.4d2$
  18.  
  19. flatten(-3.4d0);
  20. -3.4d0$
  21.  
  22. flatten(x);
  23. x$
  24.  
  25. flatten(abc);
  26. abc$
  27.  
  28. flatten(%pi);
  29. %pi$
  30.  
  31. flatten(rat(x));
  32. x$
  33.  
  34. flatten(x[5]);
  35. x[5]$
  36.  
  37. flatten(x[8,32]);
  38. x[8,32]$
  39.  
  40. flatten(-x);
  41. -x$
  42.  
  43. flatten(rat(-x));
  44. -x$
  45.  
  46. flatten(a+b);
  47. a+b$
  48.  
  49. flatten(rat(a+b));
  50. a+b$
  51.  
  52. flatten(a*b);
  53. a*b$
  54.  
  55. flatten(a/b);
  56. a/b$
  57.  
  58. flatten(a*b*c);
  59. a*b*c$
  60.  
  61. flatten(a^b);
  62. a^b$
  63.  
  64. flatten(a^(a^b));
  65. a^(a^b)$
  66.  
  67. flatten([]);
  68. []$
  69.  
  70. flatten([[]]);
  71. []$
  72.  
  73. flatten([x]);
  74. [x]$
  75.  
  76. flatten([[x]]);
  77. [x]$
  78.  
  79. flatten(f(g(f(f(x)))));
  80. f(g(f(f(x))))$
  81.  
  82. flatten(f(f(g(f(x)))));
  83. f(g(f(x)))$
  84.  
  85. /* Examples from Macsyma 422 */
  86.  
  87. flatten([a,b,[c,[d]],e,[[f],g,h]]);
  88. [a,b,c,d,e,f,g,h]$
  89.  
  90. flatten([a,b([c]),[d]]);
  91. [a,b([c]),d]$
  92.  
  93. flatten(f(f(a,b), f(c,d)));
  94. f(a,b,c,d)$
  95.  
  96. flatten(f[1](f[1](a,b), f[1](c,d)));
  97. f[1](a,b,c,d)$
  98.  
  99.  
  100.